home *** CD-ROM | disk | FTP | other *** search
- public clscpt, defkey, clscpi, ploghnd, sloghnd, tloghnd
- public dopar, shokey, cptchr, pktcpt, targ
- public kbdflg, shkadr, telnet, ttyact
- public cnvlin, katoi, decout, valout, atoi, cnvstr
- include ccsdef.h
-
-
- braceop equ 7bh ; opening curly brace
- bracecl equ 7dh ; closing curly brace
-
- datas segment public 'datas'
- extrn flags:byte, trans:byte, buff:byte, portval:word
- extrn isccdos:byte ; Jun 25,1990
-
- targ termarg <0,1,80,24,cptchr,2dch,0,scntab,deftab,0,,parnon>
- crlf db cr,lf,'$'
- tmsg1 db cr,lf,'(Connecting to host, type $'
- ctmsg1 db cr,lf,'(┴¼╜╙╡╜╓≈╗·, ┤≥╚δ╝ⁿ $'
- tmsg3 db ' C to return to PC)',cr,lf,cr,lf,cr,lf,'$'
- ctmsg3 db ' C ▒π┐╔╖╡╗╪╡╜▒╛╡╪ PC)',cr,lf,cr,lf,cr,lf,'$'
- erms25 db cr,lf,'?Input must be numeric$'
- cerms25 db cr,lf,'?╩Σ╚δ▒╪╨δ╩╟╩²╫╓$'
- erms22 db cr,lf,'?No open logging file$'
- cerms22 db cr,lf,'?├╗╙╨┤≥┐¬╝╟┬╝╬─╝■$'
- erms23 db cr,lf,'?Error writing session log, suspending capture.'
- db cr,lf,'$'
- cerms23 db cr,lf,'?╨┤╢╘╗░╝╟┬╝(SESSION LOG)╬─╝■│÷┤φ, ╓╨╓╣▓╢╫╜.'
- db cr,lf,'$'
- erms24 db cr,lf,'?Error writing Packet log$'
- cerms24 db cr,lf,'?╨┤▒¿╬─╝╟┬╝(PACKET LOG)╬─╝■│÷┤φ$'
- esctl db 'Control-$'
-
- inthlp db cr,lf,' ? This message F Dump screen to file'
- db cr,lf,' C Close the connection P Push to DOS'
- db cr,lf,' S Status of the connection Q Quit logging'
- db cr,lf,' M Toggle mode line R Resume logging'
- db cr,lf,' B Send a Break 0 Send a null'
- db cr,lf,' L Send a long 1.8 s Break H Hangup phone'
- db cr,lf,' Typing the escape character will send it to the host'
- db 0 ; this short-form obscures less screen area [jrd]
-
- cinthlp db cr,lf,' ? ╛═╩╟╒Γ╨⌐╨┼╧ó F ┐╜▒┤╞┴─╗╨┼╧ó╡╜╬─╝■ '
- db cr,lf, ' C ╣╪▒╒┴¼╜╙ P ═╦╡╜ DOS ╫┤╠¼ '
- db cr,lf, ' S ╧╘╩╛┴¼╜╙╫┤╠¼ Q ═ú╓╣╬─╝■╝╟┬╝ '
- db cr,lf, ' M ┤Ñ╖ó╫┤╠¼╨╨ R ╓╪╨┬┐¬╩╝╬─╝■╝╟┬╝ '
- db cr,lf, ' B ╖ó╦═╥╗╕÷ Break╫╓╖√ 0 ╖ó╦═╥╗╕÷ Null╫╓╖√(0)'
- db cr,lf, ' L ╖ó╦═│ñ┤∩ 1.8├δ╡─ Break ╫╓╖√┤« H ╣╥╡⌠╡τ╗░ '
- db cr,lf, ' ┤≥╚δ═╦│÷╫╓╖√(ESC)╜½▒╗╖ó╦═╡╜╓≈╗· '
- db 0 ; this short-form obscures less screen area [jrd]
-
- intprm db 'Command> $'
- cintprm db '├ⁿ┴ε >> $'
- intclet db 'B','C','F','H','L' ; single letter commands
- db 'M','P','Q','R','S' ; must parallel dispatch table intcjmp
- db '?','0'
- numlet equ $ - intclet ; number of entries
- intcjmp dw intchb,intchc,intchf,intchh,intchl
- dw intchm,intchp,intchq,intchr,intchs
- dw intchu,intchn
-
- pktbuf db cptsiz dup (?) ; packet logging buffer
- pktbp dw pktbuf ; buffer pointer to next free byte
- pktlft dw cptsiz ; number free bytes left
- capbuf db cptsiz dup (?) ; session logging buffer
- capbp dw capbuf ; buffer pointer to next free byte
- caplft dw cptsiz ; number free bytes left
-
- ploghnd dw -1 ; packet logging handle
- sloghnd dw -1 ; session logging handle
- tloghnd dw -1 ; transaction logging handle
-
- clotab db 4
- mkeyw 'All',logpkt+logses+logtrn
- mkeyw 'Packets',logpkt
- mkeyw 'Session',logses
- mkeyw 'Transaction',logtrn
-
- clseslog db cr,lf,' Closing Session log$'
- cclseslog db cr,lf,' ╣╪▒╒╗ß╗░╝╟┬╝(SESSION LOG)$'
- clpktlog db cr,lf,' Closing Packet log$'
- cclpktlog db cr,lf,' ╣╪▒╒▒¿╬─╝╟┬╝(PACKET LOG)'
- cltrnlog db cr,lf,' Closing Transaction log$'
- ccltrnlog db cr,lf,' ╣╪▒╒╧╕─┐╝╟┬╝(TRANSACTION LOG)$'
- clohlp db cr,lf,' One of following log files:'
- db cr,lf,' ALL, Packets, Session, Transaction$'
- cclohlp db cr,lf,' ╧┬┴╨╝╟┬╝╬─╝■╓«╥╗:'
- db cr,lf,' ALL, Packets, Session, Transaction$'
- scntab dw 0
- deftab dw 0
- sttmsg db cr,lf,'Type space to continue ...$'
- csttmsg db cr,lf,'┤≥┐╒╕±╝ⁿ╝╠╨°╓┤╨╨ ...$'
- kbdflg db 0 ; non-zero means char here from Term
- ttyact db 0 ; Connect mode active, if non-zero
- shkadr dw 0 ; offset of replacement Show Key cmd
- ten dw 10 ; multiplier for setatoi
- nbase dw ? ; currently active number base
- numset db '0123456789ABCDEF' ; number conversion alphabet
- tmp db ?
- datas ends
-
-
-